William Shakespeare - The Complete Works/William Shakespeare - The Complete Works on CD-ROM.iso/classic/form3a.frm

Text File | 1994-09-21 | 16KB | 649 lines

VERSION 2.00
Begin Form Form3
   Caption         =   "William Shakespeare: The Complete Works"
   ClientHeight    =   3855
   ClientLeft      =   1260
   ClientTop       =   1785
   ClientWidth     =   9510
   Height          =   4545
   Left            =   1200
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   257
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   634
   Top             =   1155
   Width           =   9630
   WindowState     =   2  'Maximized
   Begin Timer Timer2
      Enabled         =   0   'False
      Interval        =   100
      Left            =   1500
      Top             =   2640
   End
   Begin PictureBox picCursorMask1
      Height          =   516
      Left            =   1800
      Picture         =   FORM3A.FRX:0000
      ScaleHeight     =   32
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   32
      TabIndex        =   8
      Top             =   780
      Visible         =   0   'False
      Width           =   516
   End
   Begin PictureBox picCursor1
      AutoRedraw      =   -1  'True
      Height          =   516
      Left            =   900
      Picture         =   FORM3A.FRX:0302
      ScaleHeight     =   32
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   32
      TabIndex        =   7
      Top             =   900
      Visible         =   0   'False
      Width           =   516
   End
   Begin CommonDialog CMDialog1
      Left            =   420
      Top             =   2640
   End
   Begin Timer Timer1
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   480
      Top             =   1740
   End
   Begin CommandButton TopBar
      Caption         =   "&Biography"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   1
      Left            =   1500
      TabIndex        =   6
      Top             =   0
      Width           =   1536
   End
   Begin CommandButton TopBar
      Caption         =   "&Search"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   2
      Left            =   3000
      TabIndex        =   5
      Top             =   0
      Width           =   1536
   End
   Begin CommandButton TopBar
      Caption         =   "Book&mark"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   3
      Left            =   4500
      TabIndex        =   4
      Top             =   0
      Width           =   1536
   End
   Begin CommandButton TopBar
      Caption         =   "&Notes"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   4
      Left            =   6000
      TabIndex        =   3
      Top             =   0
      Width           =   1536
   End
   Begin CommandButton TopBar
      Caption         =   "&Library"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   5
      Left            =   7500
      TabIndex        =   2
      Top             =   0
      Width           =   1530
   End
   Begin CommandButton TopBar
      Caption         =   "View &Text"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   0
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   1530
   End
   Begin CommandButton TopBar
      Caption         =   "&Wordprocessor"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   360
      Index           =   6
      Left            =   9000
      TabIndex        =   0
      Top             =   0
      Width           =   1530
   End
   Begin Menu menu_file
      Caption         =   "&File"
      Begin Menu menu_print
         Caption         =   "&Print"
         Begin Menu menu_bookmarks
            Caption         =   "&Bookmarks..."
         End
         Begin Menu search_list
            Caption         =   "&Search list..."
         End
      End
      Begin Menu menu_print_setup
         Caption         =   "P&rint setup..."
      End
      Begin Menu blank
         Caption         =   "-"
      End
      Begin Menu menu_preferences
         Caption         =   "Pre&ferences..."
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin Menu menu_exit
         Caption         =   "E&xit"
         Shortcut        =   ^Q
      End
   End
   Begin Menu menu_view
      Caption         =   "V&iew"
      Begin Menu menu_book
         Caption         =   "&Book"
      End
      Begin Menu menu_Wordprocessor
         Caption         =   "&Wordprocessor"
      End
      Begin Menu menu_search_list
         Caption         =   "&Search list..."
      End
      Begin Menu menu_retrace_steps
         Caption         =   "&Retrace steps..."
      End
   End
   Begin Menu menu_search
      Caption         =   "&Search"
      Begin Menu Title_search
         Caption         =   "&Title..."
      End
      Begin Menu Simple_search
         Caption         =   "&Simple..."
      End
      Begin Menu Complex_search
         Caption         =   "&Complex..."
      End
      Begin Menu Field_search
         Caption         =   "&Field"
         Begin Menu play_type_search
            Caption         =   "&Play type..."
         End
         Begin Menu scene_search
            Caption         =   "&Scene..."
         End
         Begin Menu song_search
            Caption         =   "S&ong"
         End
         Begin Menu soliloquy_search
            Caption         =   "So&liloquy..."
         End
         Begin Menu imagery_search
            Caption         =   "Selected &imagery..."
         End
      End
   End
   Begin Menu menu_help
      Caption         =   "&Help"
      Begin Menu help_shakespeare
         Caption         =   "&Using The Complete Works"
      End
      Begin Menu help_wordprocessor
         Caption         =   "Using the &Word processor"
      End
      Begin Menu blank1
         Caption         =   "-"
      End
      Begin Menu help_about
         Caption         =   "&About..."
      End
   End
End
Declare Function GetWindowWord Lib "user.exe" (ByVal window As Integer, ByVal offset As Integer) As Integer
Declare Sub Ctl3dRegister Lib "ctl3d.dll" (ByVal instance As Integer)
Declare Sub Ctl3dAutoSubclass Lib "ctl3d.dll" (ByVal instance As Integer)
Declare Sub Ctl3dUnRegister Lib "ctl3d.dll" (ByVal instance As Integer)
Dim zone As String
Dim ciCommand   As CursorInfo

Sub Animation1_AnimStop (Reason As Long)
'Animation1.BeginFade = cut
do_command (zone)
form3.Timer1.Enabled = True

End Sub

Sub Command1_Click (index As Integer)
Select Case index
Case 0
'form3.Animation1.Visible = False
form3.Hide
Case 1
complexsearch.Show
Case 2
End Select
End Sub

Sub Command3D1_Click (index As Integer)
 hide_all
 process_zone (zone_command(index))

End Sub

Sub Complex_search_Click ()
    success% = SetWindowPos(complexsearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)

 complexsearch.Show

End Sub

Sub Form_Load ()
    'hInstance% = GetWindowWord(hWnd, GWW_HINSTANCE)
    'Ctl3dRegister (hInstance%)
    'Ctl3dAutoSubclass (hInstance%)
    'MakeCursor form3.Command3D1(0).hWnd, picCursor1, picCursorMask1, ciCommand
    'Unload form2
    'form2.Refresh
'form3.Animation1.PositionFrame = 36
'form3.Animation1.EndFrame = 51
'form3.Animation1.Play = True
    form3.Refresh
form2.Timer1.Enabled = False
'timer2.Enabled = True
End Sub

Sub Form_Resize ()
If form3.Width < 1000 Then
modalviewer.Hide
choosesearch.Hide
bookmark.Hide
wordp.Hide
List.Hide
'notepad.Hide
formmain.Hide
End If
b = form3.Width / (screen.TwipsPerPixelX * 7)
For a = 0 To 6
form3.TopBar(a).Width = b
form3.TopBar(a).Left = a * b
'topbar(a).FontSize = 9.75
Next a
If virgin1 = 0 Then
timer2.Enabled = True
form3.Refresh
Unload form2
End If
virgin1 = 1
End Sub

Sub Form_Unload (Cancel As Integer)
End
End Sub

Sub help_about_Click ()
hide_all
about.Show

End Sub

Sub help_shakespeare_Click ()
  hide_all
Const HELP_KEY = &H101

 form3.CMDialog1.HelpFile = cd_drive + "\LIBRARY\EXE\shakehlp.HLP"
  form3.CMDialog1.HelpContext = 3
  form3.CMDialog1.HelpCommand = 3
  form3.CMDialog1.Action = 6



End Sub

Sub help_wordprocessor_Click ()
  hide_all
  'Specify the help file to be opened.
  form3.CMDialog1.HelpFile = cd_drive + "\LIBRARY\EXE\shakword.HLP"
  'When WinHelp.exe is executed, help for a specified
  'keyword will be displayed.
  form3.CMDialog1.HelpCommand = 3
  form3.CMDialog1.HelpContext = 3
  'Specify the keyword
  'CMDialog1.HelpKey = "MouseDown"
  'Execute WinHelp.exe
  form3.CMDialog1.Action = 6



End Sub

Sub imagery_search_Click ()
    hide_all
    ChDrive cd_drive
    ChDir "\library\exe"

    ImagerySearch filenum%, linenum%
     If filenum% > 0 Then
    modalviewer.modal.Value = filenum%
    Call view_text(0)
    goto_line (linenum%)
    End If

End Sub

Sub menu_book_Click ()
do_command ("OPEN")

End Sub

Sub menu_bookmarks_Click ()
hide_all
form3.CMDialog1.Action = 5
If form3.CMDialog1.CancelError <> True Then
For a = 0 To bookmark.List1.ListCount - 1
printer.Print bookmark.List1.List(a)
'Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
printer.EndDoc
End If

End Sub

Sub menu_exit_Click ()
End

End Sub

Sub menu_open_Click ()
hide_all
On Error GoTo leave:
form3.CMDialog1.InitDir = "c:\library"
form3.CMDialog1.Filename = "CDAUTHOR.BMK"
form3.CMDialog1.Filter = "*.bmk,Bookmarks"
form3.CMDialog1.Action = 1
 If form3.CMDialog1.CancelError <> True Then
Open form3.CMDialog1.Filename For Input As #1
bookmark.List1.Clear
Do
Line Input #1, a$
Line Input #1, b$
 bookmark.List1.AddItem (a$)
bookmark.List1.ItemData(bookmark.List1.NewIndex) = Val(b$)
Loop Until EOF(1)
Close #1
End If
Exit Sub
leave:
Close #1
Exit Sub

End Sub

Sub menu_preferences_Click ()
success% = SetWindowPos(preferences.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
preferences.Show

End Sub

Sub menu_print_setup_Click ()
hide_all
form3.CMDialog1.Action = 5

End Sub

Sub menu_retrace_steps_Click ()
retrace.Show

End Sub

Sub menu_save_as_Click ()
On Error Resume Next
hide_all
form3.CMDialog1.InitDir = "c:\library"
form3.CMDialog1.Filename = "CDAUTHOR.BMK"
form3.CMDialog1.Filter = "*.bmk,Bookmarks"
form3.CMDialog1.Action = 2
If form3.CMDialog1.CancelError <> True Then
Open form3.CMDialog1.Filename For Output As #1
For a = 0 To bookmark.List1.ListCount - 1
Print #1, bookmark.List1.List(a)
Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
Close
End If

End Sub

Sub menu_search_list_Click ()
hide_all
List.Show

End Sub

Sub menu_Wordprocessor_Click ()
wordp.Show

End Sub

Sub play_type_search_Click ()
    'hInstance% = GetWindowWord(hWnd, GWW_HINSTANCE)
    'Ctl3dRegister (hInstance%)
    'Ctl3dAutoSubclass (hInstance%)
'field_search (0)
    hide_all
    ChDrive cd_drive
    ChDir "\library\exe"
    filenum% = playsearch()
    If filenum% > 1 Then
    modalviewer.modal.Value = filenum%
    Call view_text(0)
    End If


End Sub

Sub process_zone (zone_c)


'form3.Animation1.Play = False
'form3.Animation1.PositionFrame = 1
Select Case preferences.Check3D1.Value
Case True
zone = zone_c
Select Case zone_c
Case "GLOSSARY"
'form3.Animation1.PositionFrame = 16
'form3.Animation1.EndFrame = 31
'form3.Animation1.Play = True

Case "SEARCH"
'form3.Animation1.PositionFrame = 66: ' 17
'form3.Animation1.EndFrame = 81: '32
'form3.Animation1.Play = True
Case "BOOKSHELF"
'form3.Animation1.PositionFrame = 34
'form3.Animation1.EndFrame = 49
'form3.Animation1.Play = True
Case "WORDPROCESSOR"
'form3.Animation1.PositionFrame = 49
'form3.Animation1.EndFrame = 65
'form3.Animation1.Play = True
Case "FIELDSEARCH"
'form3.Animation1.PositionFrame = 66
'form3.Animation1.EndFrame = 81
'form3.Animation1.Play = True

Case "BOOKMARK"
'form3.Animation1.PositionFrame = 82
'form3.Animation1.EndFrame = 88
'form3.Animation1.Play = True

Case "MODALVIEWER"
'form3.Animation1.PositionFrame = 99
'form3.Animation1.EndFrame = 129
'form3.Animation1.Play = True
Case "FIRE"
'form3.Animation1.PositionFrame = 2
'form3.Animation1.EndFrame = 17
'form3.Animation1.Play = True


Case "SOUND"
    If preferences.Audio.Value = True Then
     'MMControl1.Command = "prev"
     'MMControl1.Command = "play"
     End If

End Select

Case False
 do_command (zone_c)
End Select

End Sub

Sub scene_search_Click ()
hide_all
'field_search (1)
    ChDrive cd_drive
    ChDir "\library\exe"
      filenum% = scenesearch()
    If filenum% > 1 Then
modalviewer.modal.Value = filenum%
    Call view_text(0)
    End If


End Sub

Sub search_list_Click ()
hide_all
form3.CMDialog1.Action = 5
If form3.CMDialog1.CancelError <> True Then
For a = 0 To List.List1.ListCount - 1
printer.Print List.List1.List(a)
'Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
printer.EndDoc
End If

End Sub

Sub Simple_search_Click ()

success% = SetWindowPos(simplesearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
simplesearch.Show
'hide_all
'search_words(0) = InputBox$("Enter the WORD you wish to search for", "Simple Search", "")
'If search_words(0) <> "" Then Call free_text_search("WORD", 0, 0)


End Sub

Sub soliloquy_search_Click ()

hide_all
    ChDrive cd_drive
    ChDir "\library\exe"

sol_search

End Sub

Sub song_search_Click ()
 hide_all
    ChDrive cd_drive
    ChDir "\library\exe"

 song_search


End Sub

Sub timer_2 ()
End Sub

Sub Timer1_Timer ()
'form3.Animation1.PositionFrame = 3
form3.Timer1.Enabled = False

End Sub

Sub Timer2_Timer ()
process_zone ("FIRE")
timer2.Enabled = False
End Sub

Sub Title_search_Click ()

success% = SetWindowPos(titlesearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
titlesearch.Show
'hide_all
'Do
'search_words(0) = InputBox$("Enter ONE Word only                                            Enter Author's name to display Author(Biography) and works by that author.                                   Enter keyword from title to display all titles containing this word.                                             Click on OK to start the search", "Title or Author Search", "")
'If search_words(0) <> "" Then
' Call free_text_search("TITLE", 0, 0)
' Else
' successful = 1
' End If


'Loop Until successful = 1

End Sub

Sub TopBar_Click (index As Integer)
do_command (buttons_command(index))
End Sub